home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / QBTXCRET.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  1KB  |  52 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' '$INCLUDE: 'qbtools2.inc'
  3. '' '$INCLUDE: 'qbt2indx.inc'
  4. '' '-------------------------Standard Include Merge Section-------------------
  5.  
  6.     SUB IndexCreate (IxNum%, flnm$, keylength%) STATIC
  7.      
  8.         TempIxNum% = IxNum%
  9.  
  10.         idxk% = keylength%
  11.         hdr$ = flnm$
  12.         aesbwarning% = 1
  13.         WHILE idxk% > 3 AND idxk% < 256
  14.             WHILE hdr$ <> ""
  15.                 mas$ = hdr$ + ".idx"
  16.                 hdr$ = hdr$ + ".hdr"
  17.                 recsize% = idxk% + 10
  18.              
  19.                 hIdx1% = FREEFILE
  20.                 OPEN "o", hIdx1%, hdr$
  21.                 IxNum% = FREEFILE
  22.                 CLOSE hIdx1%
  23.              
  24.                 OPEN "r", IxNum%, hdr$, 512
  25.                 FIELD #IxNum%, 32 AS desc$, 32 AS xmast$, 2 AS klen$, 2 AS nok$, 2 AS nexav$
  26.                 FIELD #IxNum%, 70 AS twit$, 2 AS kdel$, 440 AS spare$
  27.                 LSET desc$ = "(c) R.Barrow 1986,87,88" + CHR$(26)
  28.                 LSET xmast$ = mas$
  29.                 LSET klen$ = MKI$(idxk%)
  30.                 LSET nok$ = MKI$(0)
  31.                 LSET nexav$ = MKI$(1)
  32.                 LSET kdel$ = MKI$(0)
  33.                 PUT IxNum%, 1
  34.                 CLOSE IxNum%
  35.                 OPEN "o", IxNum%, mas$
  36.                 CLOSE IxNum%
  37.                 OPEN "r", IxNum%, mas$, recsize%
  38.                 FIELD #IxNum%, recsize% AS dummy$
  39.                 LSET dummy$ = STRING$(recsize%, 0)
  40.                 PUT #IxNum%, 1
  41.                 CLOSE IxNum%
  42.                 aesbwarning% = 0
  43.                 hdr$ = ""
  44.             WEND
  45.             idxk% = 0
  46.         WEND
  47.      
  48.         IxNum% = TempIxNum%
  49.  
  50.     END SUB
  51.  
  52.